Script: --on windowEvent wdID,wdName,objNo,objName,objValue¬global gAllMoviesList¬¬if objValue="Open" then ¬ set cursor to watch¬ CenterWindow wdName¬ ¬ wsSet wdID,"ClipList","Text", getColumn(gAllMoviesList,2,2,tab) ¬ put random(the number of lines of gAllMoviesList) into SelectNum¬ wsSet wdID,"ClipList","Selection", selectNum ¬ put ((SelectNum < 1) or (SelectNum = empty)) into movieDisabled¬ ¬ if movieDisabled then¬ wsSet wdID, "TheMovie", "File", empty¬ else¬ set cursor to watch¬ put line SelectNum of gAllMoviesList into selectedMovie¬ put GetColumn(selectedMovie,1,1,tab) & GetColumn(selectedMovie,2,2,tab) into selectedMovie¬ put ".mov" after SelectedMovie¬ wsSet wdID,"TheMovie","File", selectedMovie¬ end if¬ ¬ wsSet wdID,"View Movie","Disabled", movieDisabled¬ ¬ if there is a menuItem "Close" of menu "File" then¬ enable menuItem "Close" of menu "File"¬ end if¬ ¬else if objValue="Close" then ¬ if there is a menuItem "Close" of menu "File" then¬ disable menuItem "Close" of menu "File"¬ end if¬ ¬else if objValue="Suspend" then ¬ put frontWindow() into theFrontID¬ if wsGet(theFrontID,"0","HasCloseBox") <> "true" then¬ if there is a menuItem "Close" of menu "File" then¬ disable menuItem "Close" of menu "File"¬ end if¬ end if¬ ¬else if objValue="Resume" then ¬ if there is a menuItem "Close" of menu "File" then¬ enable menuItem "Close" of menu "File"¬ end if¬end if¬--end windowEvent
ItemType: LIST
Rect: 6,26,180,236
TextFont: Geneva
TextSize: 10
Name: ClipList
DoubleClickItem: 2
Text: AD Police¬Angel Cop¬Appleseed Book 1¬Bio-Booster Armor Guyver¬Bru-Hed¬Bubblegum Crisis- Grand Mal¬Cadillacs & Dinosaurs¬Cyber City- Part 1¬Devil Man¬Earthworm Jim¬Exo-Squad¬Gall Force- Eternal Story¬Ghost in the Shell¬Iczer 3¬Lum Urusei-Yatsura¬Macross II¬MD Geist¬Oh My Goddess!¬Project A-Ko¬Ranma 1-2¬Sanctuary Part 2¬Tank Police¬Vampire Miyu¬You're Under Arrest!
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬¬global gAllMoviesList¬¬set cursor to watch¬get wsGet(wdID,"ClipList","Selection")¬put ((it > the number of lines of gAllMoviesList) or (it = empty)) into movieDisabled¬¬if movieDisabled then¬ wsSet wdID,"Loading","Visible", False¬ wsSet wdID, "TheMovie", "File", empty¬else¬ wsSet wdID,"Loading","Visible", True¬ put line it of gAllMoviesList into selectedMovie¬ put GetColumn(selectedMovie,1,1,tab) & GetColumn(selectedMovie,2,2,tab) into selectedMovie¬ put ".mov" after selectedMovie¬ wsSet wdID,"TheMovie","File", selectedMovie¬ ¬end if¬¬wsSet wdID,"View Movie","Disabled", movieDisabled¬set cursor to arrow¬¬--end mouseUp
ItemType: PUSH
Rect: 42,247,142,267
Name: View Movie
DefaultItem: TRUE
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬global gAllMoviesList¬¬get wsGet(wdID,"ClipList","Selection")¬if it <= the number of lines of gAllMoviesList then¬ put line it of gAllMoviesList into selectedMovie¬ put GetColumn(selectedMovie,1,1,tab) & GetColumn(selectedMovie,2,2,tab) into selectedMovie¬ put ".mov" after SelectedMovie¬ if wsGet(wdID, "TheMovie", "File") <> selectedMovie then wsSet wdID,"TheMovie","File", selectedMovie¬ wsSend wdID,"TheMovie","Play"¬ ¬end if¬--end mouseUp¬¬
